BIC.FOR


1
2
3
4
5
6
7
8
9
10
11
12

	SUBROUTINE BIC(CH,IV,IP)
	CHARACTER CH(10)*40
	IPP=IP
	DO 10 I=1,40
	IF(CH(IV)(I:I).EQ.'*') THEN
	CH(IV)(I:I)=' '
	IPP=IPP-1
	IF(IPP.EQ.0) RETURN
	ENDIF
10	CONTINUE
	RETURN
	END